home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 126-150 / disk_144 / analyticalc / analysources.arc / SCIFCT.FTN < prev   
Text File  |  1988-03-09  |  366b  |  14 lines
  1. C SCIENTIFIC FUNCTION CALLER
  2. C This version is a dummy placeholder.
  3. C The SCIFCT subroutine exists to allow AnalytiCalc to call just
  4. C about *ANY* Fortran callable routine.
  5.     SUBROUTINE SCIFCT(LINE,RETCD)
  6.     INTEGER RETCD
  7.     CHARACTER*1 LINE(80)
  8.     RETCD=1
  9. C HANDLE *U STXXXX FUNCTIONS. LINE ARRAY PASSED IN HERE
  10. C STARTS AFTER THE "ST" SO WE CAN DECODE IT.
  11.     RETURN
  12.     END
  13.  
  14.